home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dba1286.arc / STRUCTUR.PRG < prev    next >
Encoding:
Text File  |  1986-11-04  |  740 b   |  28 lines
  1.  
  2. *STRUCTUR.PRG by Jim Detmer
  3. *<<structur.prg>> creates empty STRUCTURE EXTENDED file using Debug
  4. *Detmer Systems Company, phone (203) 966-5359, Sept.17, 1986
  5. set safety off
  6. set console off
  7. set alte to temp.txt
  8. set alte on
  9. ? 'n temp.dbf'
  10. ? 'f 100 l 42 00'+chr(13)+'e 100 03'+chr(13)+'e 108 41'+chr(13)+;
  11.   'e 10a 02'+chr(13)+'e 120 42'+chr(13)+'e 12b 43'+chr(13)+'e 130 01';
  12.   +chr(13)+'e 140 0d'+chr(13)+'e 141 1a'
  13. ? 'r cx'+chr(13)+'42'+chr(13)+'w'+chr(13)+'q'+chr(13)
  14. set alte off
  15. set alte to
  16. run <temp.txt debug>nul
  17. use temp
  18. copy to structur.dbf stru extended
  19. use structur.dbf
  20. zap
  21. set console on
  22. disp stru
  23. use
  24. *erase temp.txt && for production ver..
  25. *erase temp.dbf && for production ver.
  26. set safety on
  27. return
  28.